home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_94670.txt < prev    next >
Text File  |  1990-08-14  |  4KB  |  187 lines
  1. -- background: 94670 from stack: in
  2. -- bmap block id: 95209
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Query
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   installMenuBar 1110,1111,1112,1113
  9. end openBackground
  10.  
  11. on doMenu menuItem
  12.   lock screen
  13.   if menuItem contains "About" then
  14.     restoreMenuBar
  15.     go to card short name of this background of background "About"
  16.     unlock screen with zoom close
  17.   else if menuItem is "Home" then
  18.     restoreMenuBar
  19.     go home
  20.   else if menuItem contains "Quit" then
  21.     restoreMenuBar false
  22.     go to card "Mac School¬Æ Shell"
  23.     unlock screen with zoom close
  24.   end if
  25. end doMenu
  26.  
  27. on groupOne
  28.   repeat with index = 2 to 7
  29.     set hilite of background button id index to false
  30.   end repeat
  31.   set hilite of target to true
  32.   go to card short name of target of this background
  33. end groupOne
  34.  
  35. on resetBackground
  36.   repeat with index = 2 to 7
  37.     set hilite of background button id index to false
  38.   end repeat
  39.   set hilite of background button id 4 to true
  40. end resetBackground
  41.  
  42.  
  43.  
  44. -- part 1 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=36 top=46 right=61 bottom=51
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 5068 / 5068
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Close
  56. ----- HyperTalk script -----
  57. on mouseDown
  58.   set icon of me to "Close Box Hi"
  59. end mouseDown
  60.  
  61. on mouseLeave
  62.   set icon of me to "Close Box"
  63. end mouseLeave
  64.  
  65. on mouseUp
  66.   set icon of me to "Close Box"
  67.   lock screen
  68.   resetBackground
  69.   go to first card of this background
  70.   unlock screen
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 2 (button)
  76. -- low flags: 00
  77. -- high flags: 0000
  78. -- rect: left=34 top=69 right=104 bottom=69
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Emergency
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   groupOne
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 3 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=78 top=69 right=104 bottom=113
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Contacts
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   groupOne
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 4 (button)
  114. -- low flags: 00
  115. -- high flags: 4000
  116. -- rect: left=122 top=69 right=104 bottom=157
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: Student
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   groupOne
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 5 (button)
  133. -- low flags: 00
  134. -- high flags: 0000
  135. -- rect: left=166 top=69 right=104 bottom=201
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Scheduler
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   groupOne
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 6 (button)
  152. -- low flags: 00
  153. -- high flags: 0000
  154. -- rect: left=210 top=69 right=104 bottom=245
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Attendance
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   groupOne
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 7 (button)
  171. -- low flags: 00
  172. -- high flags: 0000
  173. -- rect: left=254 top=69 right=104 bottom=289
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Report Cards
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   groupOne
  185. end mouseUp
  186.  
  187.